inherited frmReceita: TfrmReceita
  Left = 422
  Top = 186
  Caption = 'Receita'
  ClientHeight = 638
  ClientWidth = 594
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 601
    Width = 594
    object btnImprimir: TBitBtn
      Left = 516
      Top = 5
      Width = 74
      Height = 26
      Hint = 'Imprime Receita'
      Caption = '&Imprimir'
      Enabled = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 7
      OnClick = btnImprimirClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
        8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
        8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
        8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
        03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
        03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
        33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
        33333337FFFF7733333333300000033333333337777773333333}
      NumGlyphs = 2
    end
  end
  inherited Panel2: TPanel
    Width = 594
    Height = 601
    inherited Panel3: TPanel
      Width = 592
      Caption = 'Receita'
      inherited GroupBox1: TGroupBox
        Left = 513
      end
    end
    inherited Panel4: TPanel
      Width = 592
      Height = 559
      inherited SbHints: TStatusBar
        Top = 536
        Width = 584
      end
      object GroupBox2: TGroupBox
        Left = 4
        Top = 97
        Width = 584
        Height = 181
        Align = alTop
        Caption = 'Cliente'
        TabOrder = 1
        object Label1: TLabel
          Left = 8
          Top = 19
          Width = 33
          Height = 13
          Caption = 'C'#243'digo'
        end
        object Label2: TLabel
          Left = 90
          Top = 19
          Width = 28
          Height = 13
          Caption = 'Nome'
        end
        object Label5: TLabel
          Left = 10
          Top = 61
          Width = 35
          Height = 13
          Caption = 'Pessoa'
          Color = clBtnFace
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentColor = False
          ParentFont = False
        end
        object Label3: TLabel
          Left = 258
          Top = 61
          Width = 42
          Height = 13
          Caption = 'Telefone'
          Color = clBtnFace
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentColor = False
          ParentFont = False
        end
        object Label4: TLabel
          Left = 335
          Top = 61
          Width = 32
          Height = 13
          Caption = 'Celular'
          Color = clBtnFace
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentColor = False
          ParentFont = False
        end
        object Label6: TLabel
          Left = 373
          Top = 20
          Width = 24
          Height = 13
          Caption = 'Sexo'
          Color = clBtnFace
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentColor = False
          ParentFont = False
        end
        object Label7: TLabel
          Left = 74
          Top = 61
          Width = 20
          Height = 13
          Caption = 'CPF'
          Color = clBtnFace
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentColor = False
          ParentFont = False
        end
        object Label8: TLabel
          Left = 173
          Top = 61
          Width = 16
          Height = 13
          Caption = 'RG'
          Color = clBtnFace
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentColor = False
          ParentFont = False
        end
        object Label9: TLabel
          Left = 10
          Top = 99
          Width = 46
          Height = 13
          Caption = 'Endere'#231'o'
        end
        object Label10: TLabel
          Left = 291
          Top = 101
          Width = 27
          Height = 13
          Caption = 'Bairro'
          Color = clBtnFace
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentColor = False
          ParentFont = False
        end
        object Label11: TLabel
          Left = 10
          Top = 138
          Width = 21
          Height = 13
          Caption = 'CEP'
          Color = clBtnFace
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentColor = False
          ParentFont = False
        end
        object Label12: TLabel
          Left = 114
          Top = 139
          Width = 33
          Height = 13
          Caption = 'Cidade'
          Color = clBtnFace
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentColor = False
          ParentFont = False
        end
        object Label13: TLabel
          Left = 369
          Top = 139
          Width = 33
          Height = 13
          Caption = 'Estado'
          Color = clBtnFace
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentColor = False
          ParentFont = False
        end
        object Bevel1: TBevel
          Left = 408
          Top = 8
          Width = 121
          Height = 169
        end
        object imgPessoa: TImage
          Left = 408
          Top = 8
          Width = 121
          Height = 169
          Center = True
          Stretch = True
        end
        object btnPessoa: TBitBtn
          Left = 63
          Top = 32
          Width = 25
          Height = 22
          Caption = '...'
          TabOrder = 0
          OnClick = btnPessoaClick
        end
        object stNome: TStaticText
          Left = 88
          Top = 34
          Width = 279
          Height = 19
          AutoSize = False
          BorderStyle = sbsSingle
          TabOrder = 1
        end
        object stPessoa: TStaticText
          Left = 10
          Top = 75
          Width = 59
          Height = 18
          AutoSize = False
          BorderStyle = sbsSingle
          TabOrder = 2
        end
        object stTelefone: TStaticText
          Left = 258
          Top = 75
          Width = 71
          Height = 18
          AutoSize = False
          BorderStyle = sbsSingle
          TabOrder = 3
        end
        object stCelular: TStaticText
          Left = 335
          Top = 75
          Width = 67
          Height = 18
          AutoSize = False
          BorderStyle = sbsSingle
          TabOrder = 4
        end
        object stSexo: TStaticText
          Left = 374
          Top = 34
          Width = 26
          Height = 19
          AutoSize = False
          BorderStyle = sbsSingle
          TabOrder = 5
        end
        object stCPF: TStaticText
          Left = 74
          Top = 75
          Width = 94
          Height = 18
          AutoSize = False
          BorderStyle = sbsSingle
          TabOrder = 6
        end
        object stRG: TStaticText
          Left = 173
          Top = 75
          Width = 79
          Height = 18
          AutoSize = False
          BorderStyle = sbsSingle
          TabOrder = 7
        end
        object stEndereco: TStaticText
          Left = 11
          Top = 114
          Width = 273
          Height = 19
          AutoSize = False
          BorderStyle = sbsSingle
          TabOrder = 8
        end
        object stBairro: TStaticText
          Left = 291
          Top = 115
          Width = 111
          Height = 18
          AutoSize = False
          BorderStyle = sbsSingle
          TabOrder = 9
        end
        object stCEP: TStaticText
          Left = 10
          Top = 152
          Width = 94
          Height = 18
          AutoSize = False
          BorderStyle = sbsSingle
          TabOrder = 10
        end
        object stCidade: TStaticText
          Left = 114
          Top = 153
          Width = 251
          Height = 18
          AutoSize = False
          BorderStyle = sbsSingle
          TabOrder = 11
        end
        object stEstado: TStaticText
          Left = 371
          Top = 153
          Width = 31
          Height = 19
          AutoSize = False
          BorderStyle = sbsSingle
          TabOrder = 12
        end
        object EditCodPessoa: TEdit
          Left = 8
          Top = 32
          Width = 56
          Height = 21
          TabOrder = 13
          OnChange = EditCodPessoaChange
          OnExit = editCodPessoaExit
        end
      end
      object Panel5: TPanel
        Left = 4
        Top = 4
        Width = 584
        Height = 93
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 0
        object lblNumero: TLabel
          Left = 8
          Top = 8
          Width = 21
          Height = 13
          Caption = 'O.S.'
        end
        object lblData: TLabel
          Left = 99
          Top = 10
          Width = 3
          Height = 13
        end
        object GroupBox3: TGroupBox
          Left = 4
          Top = 25
          Width = 579
          Height = 56
          Caption = 'Empresa'
          TabOrder = 0
          object edtEmpresa: TDBEdit
            Left = 6
            Top = 22
            Width = 42
            Height = 21
            Hint = 'C'#243'digo da pessoa'
            AutoSize = False
            CharCase = ecUpperCase
            DataField = 'PR_EMPRESA'
            DataSource = DtSrc
            ParentShowHint = False
            ShowHint = True
            TabOrder = 0
            OnExit = edtEmpresaExit
          end
          object btnEmpresa: TBitBtn
            Left = 49
            Top = 22
            Width = 25
            Height = 21
            Hint = 'Buscar pessoa'
            Caption = '...'
            Enabled = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 1
            TabStop = False
            OnClick = btnEmpresaClick
          end
          object stEmpresa: TStaticText
            Left = 74
            Top = 22
            Width = 495
            Height = 21
            AutoSize = False
            BorderStyle = sbsSingle
            TabOrder = 2
          end
        end
      end
      object gbLonge: TGroupBox
        Left = 4
        Top = 287
        Width = 275
        Height = 88
        Caption = 'LONGE'
        TabOrder = 2
        object Label14: TLabel
          Left = 5
          Top = 34
          Width = 22
          Height = 13
          Caption = 'O.D.'
        end
        object Label15: TLabel
          Left = 40
          Top = 15
          Width = 23
          Height = 13
          Caption = 'ESF.'
        end
        object Label16: TLabel
          Left = 82
          Top = 16
          Width = 19
          Height = 13
          Caption = 'CIL.'
        end
        object Label17: TLabel
          Left = 121
          Top = 17
          Width = 25
          Height = 13
          Caption = 'EIXO'
        end
        object Label18: TLabel
          Left = 166
          Top = 17
          Width = 23
          Height = 13
          Caption = 'DNP'
        end
        object Label19: TLabel
          Left = 211
          Top = 18
          Width = 23
          Height = 13
          Caption = 'ALT.'
        end
        object Label20: TLabel
          Left = 5
          Top = 61
          Width = 21
          Height = 13
          Caption = 'O.E.'
        end
        object DBEdit1: TDBEdit
          Left = 29
          Top = 31
          Width = 39
          Height = 21
          DataField = 'PR_ODL_ESF'
          DataSource = DtSrc
          Enabled = False
          TabOrder = 0
        end
        object DBEdit2: TDBEdit
          Left = 70
          Top = 31
          Width = 39
          Height = 21
          DataField = 'PR_ODL_CIL'
          DataSource = DtSrc
          Enabled = False
          TabOrder = 1
        end
        object DBEdit3: TDBEdit
          Left = 111
          Top = 32
          Width = 39
          Height = 21
          DataField = 'PR_ODL_EIXO'
          DataSource = DtSrc
          Enabled = False
          TabOrder = 2
        end
        object DBEdit4: TDBEdit
          Left = 152
          Top = 31
          Width = 47
          Height = 21
          DataField = 'PR_ODL_DNP'
          DataSource = DtSrc
          Enabled = False
          TabOrder = 3
        end
        object DBEdit5: TDBEdit
          Left = 202
          Top = 32
          Width = 38
          Height = 21
          DataField = 'PR_ODL_ALT'
          DataSource = DtSrc
          Enabled = False
          TabOrder = 4
        end
        object DBEdit6: TDBEdit
          Left = 29
          Top = 57
          Width = 39
          Height = 21
          DataField = 'PR_OEL_ESF'
          DataSource = DtSrc
          Enabled = False
          TabOrder = 5
        end
        object DBEdit7: TDBEdit
          Left = 70
          Top = 57
          Width = 39
          Height = 21
          DataField = 'PR_OEL_CIL'
          DataSource = DtSrc
          Enabled = False
          TabOrder = 6
        end
        object DBEdit8: TDBEdit
          Left = 111
          Top = 58
          Width = 39
          Height = 21
          DataField = 'PR_OEL_EIXO'
          DataSource = DtSrc
          Enabled = False
          TabOrder = 7
        end
        object DBEdit9: TDBEdit
          Left = 152
          Top = 57
          Width = 47
          Height = 21
          DataField = 'PR_OEL_DNP'
          DataSource = DtSrc
          Enabled = False
          TabOrder = 8
        end
        object DBEdit10: TDBEdit
          Left = 201
          Top = 58
          Width = 38
          Height = 21
          DataField = 'PR_OEL_ALT'
          DataSource = DtSrc
          Enabled = False
          TabOrder = 9
        end
      end
      object gbPerto: TGroupBox
        Left = 279
        Top = 287
        Width = 310
        Height = 88
        Align = alCustom
        Caption = 'PERTO'
        TabOrder = 3
        object Label21: TLabel
          Left = 5
          Top = 35
          Width = 22
          Height = 13
          Caption = 'O.D.'
        end
        object Label22: TLabel
          Left = 5
          Top = 62
          Width = 21
          Height = 13
          Caption = 'O.E.'
        end
        object Label23: TLabel
          Left = 40
          Top = 16
          Width = 23
          Height = 13
          Caption = 'ESF.'
        end
        object Label24: TLabel
          Left = 83
          Top = 17
          Width = 19
          Height = 13
          Caption = 'CIL.'
        end
        object Label25: TLabel
          Left = 122
          Top = 18
          Width = 25
          Height = 13
          Caption = 'EIXO'
        end
        object Label26: TLabel
          Left = 167
          Top = 18
          Width = 23
          Height = 13
          Caption = 'DNP'
        end
        object Label27: TLabel
          Left = 212
          Top = 19
          Width = 23
          Height = 13
          Caption = 'ALT.'
        end
        object Label28: TLabel
          Left = 254
          Top = 20
          Width = 15
          Height = 13
          Caption = 'AD'
        end
        object DBEdit11: TDBEdit
          Left = 29
          Top = 58
          Width = 39
          Height = 21
          DataField = 'PR_OEP_ESF'
          DataSource = DtSrc
          Enabled = False
          TabOrder = 6
        end
        object DBEdit12: TDBEdit
          Left = 29
          Top = 32
          Width = 39
          Height = 21
          DataField = 'PR_ODP_ESF'
          DataSource = DtSrc
          Enabled = False
          TabOrder = 0
        end
        object DBEdit13: TDBEdit
          Left = 71
          Top = 32
          Width = 39
          Height = 21
          DataField = 'PR_ODP_CIL'
          DataSource = DtSrc
          Enabled = False
          TabOrder = 1
        end
        object DBEdit14: TDBEdit
          Left = 71
          Top = 58
          Width = 39
          Height = 21
          DataField = 'PR_OEP_CIL'
          DataSource = DtSrc
          Enabled = False
          TabOrder = 7
        end
        object DBEdit15: TDBEdit
          Left = 112
          Top = 59
          Width = 39
          Height = 21
          DataField = 'PR_OEP_EIXO'
          DataSource = DtSrc
          Enabled = False
          TabOrder = 8
        end
        object DBEdit16: TDBEdit
          Left = 112
          Top = 33
          Width = 39
          Height = 21
          DataField = 'PR_ODP_EIXO'
          DataSource = DtSrc
          Enabled = False
          TabOrder = 2
        end
        object DBEdit17: TDBEdit
          Left = 153
          Top = 32
          Width = 47
          Height = 21
          DataField = 'PR_ODP_DNP'
          DataSource = DtSrc
          Enabled = False
          TabOrder = 3
        end
        object DBEdit18: TDBEdit
          Left = 153
          Top = 58
          Width = 47
          Height = 21
          DataField = 'PR_OEP_DNP'
          DataSource = DtSrc
          Enabled = False
          TabOrder = 9
        end
        object DBEdit19: TDBEdit
          Left = 202
          Top = 59
          Width = 38
          Height = 21
          DataField = 'PR_OEP_ALT'
          DataSource = DtSrc
          Enabled = False
          TabOrder = 10
        end
        object DBEdit20: TDBEdit
          Left = 203
          Top = 33
          Width = 38
          Height = 21
          DataField = 'PR_ODP_ALT'
          DataSource = DtSrc
          Enabled = False
          TabOrder = 4
        end
        object DBEdit21: TDBEdit
          Left = 245
          Top = 34
          Width = 38
          Height = 21
          DataField = 'PR_ODP_AD'
          DataSource = DtSrc
          Enabled = False
          TabOrder = 5
        end
        object DBEdit22: TDBEdit
          Left = 244
          Top = 60
          Width = 38
          Height = 21
          DataField = 'PR_OEP_AD'
          DataSource = DtSrc
          Enabled = False
          TabOrder = 11
        end
      end
      object pnlOculos: TPanel
        Left = 4
        Top = 375
        Width = 584
        Height = 161
        Align = alBottom
        TabOrder = 4
        object Label32: TLabel
          Left = 152
          Top = 8
          Width = 27
          Height = 13
          Caption = 'Lente'
        end
        object Label33: TLabel
          Left = 152
          Top = 35
          Width = 21
          Height = 13
          Caption = 'Arm.'
        end
        object Label34: TLabel
          Left = 370
          Top = 12
          Width = 24
          Height = 13
          Caption = 'Med.'
        end
        object Label35: TLabel
          Left = 369
          Top = 38
          Width = 22
          Height = 13
          Caption = 'Trat.'
        end
        object Label36: TLabel
          Left = 151
          Top = 61
          Width = 23
          Height = 13
          Caption = 'Data'
        end
        object Label37: TLabel
          Left = 345
          Top = 63
          Width = 46
          Height = 13
          Caption = 'Tp. Lente'
        end
        object Label38: TLabel
          Left = 5
          Top = 85
          Width = 63
          Height = 13
          Caption = 'Observa'#231#245'es'
        end
        object gbPorcento: TGroupBox
          Left = 2
          Top = 0
          Width = 143
          Height = 83
          Caption = 'Porcentagem de Vis'#227'o'
          TabOrder = 0
          object Label29: TLabel
            Left = 5
            Top = 26
            Width = 22
            Height = 13
            Caption = 'O.D.'
          end
          object Label30: TLabel
            Left = 72
            Top = 26
            Width = 21
            Height = 13
            Caption = 'O.E.'
          end
          object Label31: TLabel
            Left = 5
            Top = 58
            Width = 56
            Height = 13
            Caption = 'V.S. Normal'
          end
          object DBEdit23: TDBEdit
            Left = 29
            Top = 23
            Width = 39
            Height = 21
            DataField = 'PR_OD_VISAO'
            DataSource = DtSrc
            Enabled = False
            TabOrder = 0
          end
          object DBEdit24: TDBEdit
            Left = 96
            Top = 22
            Width = 39
            Height = 21
            DataField = 'PR_OE_VISAO'
            DataSource = DtSrc
            Enabled = False
            TabOrder = 1
          end
          object DBEdit25: TDBEdit
            Left = 65
            Top = 54
            Width = 39
            Height = 21
            DataField = 'PR_VSNORMAL'
            DataSource = DtSrc
            Enabled = False
            TabOrder = 2
          end
        end
        object DBEdit26: TDBEdit
          Left = 182
          Top = 6
          Width = 134
          Height = 21
          DataField = 'PR_LENTE'
          DataSource = DtSrc
          Enabled = False
          TabOrder = 1
        end
        object DBEdit27: TDBEdit
          Left = 182
          Top = 33
          Width = 134
          Height = 21
          DataField = 'PR_ARMACAO'
          DataSource = DtSrc
          Enabled = False
          TabOrder = 3
        end
        object DBEdit28: TDBEdit
          Left = 397
          Top = 8
          Width = 139
          Height = 21
          DataField = 'PR_MED'
          DataSource = DtSrc
          Enabled = False
          TabOrder = 2
        end
        object DBEdit29: TDBEdit
          Left = 396
          Top = 34
          Width = 139
          Height = 21
          DataField = 'PR_TRAT'
          DataSource = DtSrc
          Enabled = False
          TabOrder = 4
        end
        object edtData: TDBEdit
          Left = 182
          Top = 59
          Width = 134
          Height = 21
          DataField = 'PR_DATA'
          DataSource = DtSrc
          Enabled = False
          TabOrder = 5
        end
        object DBEdit31: TDBEdit
          Left = 396
          Top = 59
          Width = 139
          Height = 21
          DataField = 'PR_TPLENTE'
          DataSource = DtSrc
          Enabled = False
          TabOrder = 6
        end
        object DBMemo1: TDBMemo
          Left = 3
          Top = 100
          Width = 577
          Height = 57
          DataField = 'PR_OBSERVACOES'
          DataSource = DtSrc
          TabOrder = 7
        end
      end
    end
  end
  inherited DtSrc: TDataSource
    DataSet = SQLC_Receita
    OnStateChange = DtSrcStateChange
  end
  object SQLC_Receita: TSQLClientDataSet
    CommandText = 'SELECT * FROM PESSOA_RECEITA'#13#10'WHERE PR_IDFCOD=:PR_IDFCOD'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftUnknown
        Name = 'PR_IDFCOD'
        ParamType = ptInput
      end>
    DBConnection = DtmGeral.ConexaoBanco
    Left = 81
    Top = 9
    object SQLC_ReceitaPR_IDFCOD: TIntegerField
      FieldName = 'PR_IDFCOD'
      Required = True
    end
    object SQLC_ReceitaPR_PESSOA: TIntegerField
      FieldName = 'PR_PESSOA'
      Required = True
    end
    object SQLC_ReceitaPR_ODL_ESF: TFMTBCDField
      FieldName = 'PR_ODL_ESF'
      Precision = 15
      Size = 2
    end
    object SQLC_ReceitaPR_ODL_CIL: TFMTBCDField
      FieldName = 'PR_ODL_CIL'
      Precision = 15
      Size = 2
    end
    object SQLC_ReceitaPR_ODL_EIXO: TSmallintField
      FieldName = 'PR_ODL_EIXO'
    end
    object SQLC_ReceitaPR_ODL_DNP: TFMTBCDField
      FieldName = 'PR_ODL_DNP'
      Precision = 15
      Size = 2
    end
    object SQLC_ReceitaPR_ODL_ALT: TStringField
      FieldName = 'PR_ODL_ALT'
      Size = 10
    end
    object SQLC_ReceitaPR_OEL_ESF: TFMTBCDField
      FieldName = 'PR_OEL_ESF'
      Precision = 15
      Size = 2
    end
    object SQLC_ReceitaPR_OEL_CIL: TFMTBCDField
      FieldName = 'PR_OEL_CIL'
      Precision = 15
      Size = 2
    end
    object SQLC_ReceitaPR_OEL_EIXO: TSmallintField
      FieldName = 'PR_OEL_EIXO'
    end
    object SQLC_ReceitaPR_OEL_DNP: TFMTBCDField
      FieldName = 'PR_OEL_DNP'
      Precision = 15
      Size = 2
    end
    object SQLC_ReceitaPR_OEL_ALT: TStringField
      FieldName = 'PR_OEL_ALT'
      Size = 10
    end
    object SQLC_ReceitaPR_ODP_ESF: TFMTBCDField
      FieldName = 'PR_ODP_ESF'
      Precision = 15
      Size = 2
    end
    object SQLC_ReceitaPR_ODP_CIL: TFMTBCDField
      FieldName = 'PR_ODP_CIL'
      Precision = 15
      Size = 2
    end
    object SQLC_ReceitaPR_ODP_EIXO: TSmallintField
      FieldName = 'PR_ODP_EIXO'
    end
    object SQLC_ReceitaPR_ODP_DNP: TFMTBCDField
      FieldName = 'PR_ODP_DNP'
      Precision = 15
      Size = 2
    end
    object SQLC_ReceitaPR_ODP_ALT: TStringField
      FieldName = 'PR_ODP_ALT'
      Size = 10
    end
    object SQLC_ReceitaPR_ODP_AD: TFMTBCDField
      FieldName = 'PR_ODP_AD'
      Precision = 15
      Size = 2
    end
    object SQLC_ReceitaPR_OEP_ESF: TFMTBCDField
      FieldName = 'PR_OEP_ESF'
      Precision = 15
      Size = 2
    end
    object SQLC_ReceitaPR_OEP_CIL: TFMTBCDField
      FieldName = 'PR_OEP_CIL'
      Precision = 15
      Size = 2
    end
    object SQLC_ReceitaPR_OEP_EIXO: TSmallintField
      FieldName = 'PR_OEP_EIXO'
    end
    object SQLC_ReceitaPR_OEP_DNP: TFMTBCDField
      FieldName = 'PR_OEP_DNP'
      Precision = 15
      Size = 2
    end
    object SQLC_ReceitaPR_OEP_ALT: TStringField
      FieldName = 'PR_OEP_ALT'
      Size = 10
    end
    object SQLC_ReceitaPR_OEP_AD: TFMTBCDField
      FieldName = 'PR_OEP_AD'
      Precision = 15
      Size = 2
    end
    object SQLC_ReceitaPR_OD_VISAO: TFMTBCDField
      FieldName = 'PR_OD_VISAO'
      Precision = 15
      Size = 2
    end
    object SQLC_ReceitaPR_OE_VISAO: TFMTBCDField
      FieldName = 'PR_OE_VISAO'
      Precision = 15
      Size = 2
    end
    object SQLC_ReceitaPR_VSNORMAL: TStringField
      FieldName = 'PR_VSNORMAL'
      Size = 1
    end
    object SQLC_ReceitaPR_LENTE: TStringField
      FieldName = 'PR_LENTE'
      Size = 30
    end
    object SQLC_ReceitaPR_ARMACAO: TStringField
      FieldName = 'PR_ARMACAO'
    end
    object SQLC_ReceitaPR_MED: TStringField
      FieldName = 'PR_MED'
      Size = 30
    end
    object SQLC_ReceitaPR_TRAT: TStringField
      FieldName = 'PR_TRAT'
      Size = 10
    end
    object SQLC_ReceitaPR_DATA: TDateField
      FieldName = 'PR_DATA'
    end
    object SQLC_ReceitaPR_TPLENTE: TStringField
      FieldName = 'PR_TPLENTE'
      Size = 1
    end
    object SQLC_ReceitaPR_DATACRIACAO: TSQLTimeStampField
      FieldName = 'PR_DATACRIACAO'
      Required = True
    end
    object SQLC_ReceitaPR_OBSERVACOES: TMemoField
      FieldName = 'PR_OBSERVACOES'
      BlobType = ftMemo
      Size = 1
    end
    object SQLC_ReceitaPR_EMPRESA: TIntegerField
      FieldName = 'PR_EMPRESA'
      Required = True
    end
  end
  object rvReceitas: TRvProject
    Engine = DtmGeral.RvS_Relatorios
    Left = 385
    Top = 9
  end
  object rvdsReceitas: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = SQLC_ReceitaRel
    Left = 417
    Top = 9
  end
  object SQLC_ReceitaRel: TSQLClientDataSet
    CommandText = 
      'SELECT PR.*, PE.PES_NOME, PE.PES_ENDERECO, PE.PES_BAIRRO, PE.PES' +
      '_ESTADO, CI.CID_DESCRI, PE.PES_FONE, EM.*'#13#10'FROM PESSOA_RECEITA P' +
      'R'#13#10'INNER JOIN PESSOAS PE ON (PE.PES_IDFCOD=PR.PR_PESSOA)'#13#10'INNER ' +
      'JOIN ('#13#10'  SELECT EMP_CODIGO, EMP_FANTAS, EMP_ENDERE,       EMP_B' +
      'AIRRO,  CID_DESCRI EM_CIDADE, EMP_ESTCOD,'#13#10'  EMP_FONE,  EMP_EMAI' +
      'L, EMP_CNPJ FROM EMPRESAS'#13#10'  INNER JOIN CIDADES ON EMP_CIDCOD=CI' +
      'D_CODIGO'#13#10'  ) EM ON (PR.PR_EMPRESA=EM.EMP_CODIGO)'#13#10'INNER JOIN CI' +
      'DADES CI ON (CI.CID_CODIGO=PE.PES_CIDADE)'#13#10'WHERE PR.PR_IDFCOD=:C' +
      'ODIGO'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftUnknown
        Name = 'CODIGO'
        ParamType = ptUnknown
      end>
    DBConnection = DtmGeral.ConexaoBanco
    Left = 449
    Top = 9
    object SQLC_ReceitaRelPR_IDFCOD: TIntegerField
      FieldName = 'PR_IDFCOD'
      Required = True
    end
    object SQLC_ReceitaRelPR_PESSOA: TIntegerField
      FieldName = 'PR_PESSOA'
      Required = True
    end
    object SQLC_ReceitaRelPR_ODL_ESF: TFMTBCDField
      FieldName = 'PR_ODL_ESF'
      Precision = 15
      Size = 2
    end
    object SQLC_ReceitaRelPR_ODL_CIL: TFMTBCDField
      FieldName = 'PR_ODL_CIL'
      Precision = 15
      Size = 2
    end
    object SQLC_ReceitaRelPR_ODL_EIXO: TSmallintField
      FieldName = 'PR_ODL_EIXO'
    end
    object SQLC_ReceitaRelPR_ODL_DNP: TFMTBCDField
      FieldName = 'PR_ODL_DNP'
      Precision = 15
      Size = 2
    end
    object SQLC_ReceitaRelPR_ODL_ALT: TStringField
      FieldName = 'PR_ODL_ALT'
      Size = 10
    end
    object SQLC_ReceitaRelPR_OEL_ESF: TFMTBCDField
      FieldName = 'PR_OEL_ESF'
      Precision = 15
      Size = 2
    end
    object SQLC_ReceitaRelPR_OEL_CIL: TFMTBCDField
      FieldName = 'PR_OEL_CIL'
      Precision = 15
      Size = 2
    end
    object SQLC_ReceitaRelPR_OEL_EIXO: TSmallintField
      FieldName = 'PR_OEL_EIXO'
    end
    object SQLC_ReceitaRelPR_OEL_DNP: TFMTBCDField
      FieldName = 'PR_OEL_DNP'
      Precision = 15
      Size = 2
    end
    object SQLC_ReceitaRelPR_OEL_ALT: TStringField
      FieldName = 'PR_OEL_ALT'
      Size = 10
    end
    object SQLC_ReceitaRelPR_ODP_ESF: TFMTBCDField
      FieldName = 'PR_ODP_ESF'
      Precision = 15
      Size = 2
    end
    object SQLC_ReceitaRelPR_ODP_CIL: TFMTBCDField
      FieldName = 'PR_ODP_CIL'
      Precision = 15
      Size = 2
    end
    object SQLC_ReceitaRelPR_ODP_EIXO: TSmallintField
      FieldName = 'PR_ODP_EIXO'
    end
    object SQLC_ReceitaRelPR_ODP_DNP: TFMTBCDField
      FieldName = 'PR_ODP_DNP'
      Precision = 15
      Size = 2
    end
    object SQLC_ReceitaRelPR_ODP_ALT: TStringField
      FieldName = 'PR_ODP_ALT'
      Size = 10
    end
    object SQLC_ReceitaRelPR_ODP_AD: TFMTBCDField
      FieldName = 'PR_ODP_AD'
      Precision = 15
      Size = 2
    end
    object SQLC_ReceitaRelPR_OEP_ESF: TFMTBCDField
      FieldName = 'PR_OEP_ESF'
      Precision = 15
      Size = 2
    end
    object SQLC_ReceitaRelPR_OEP_CIL: TFMTBCDField
      FieldName = 'PR_OEP_CIL'
      Precision = 15
      Size = 2
    end
    object SQLC_ReceitaRelPR_OEP_EIXO: TSmallintField
      FieldName = 'PR_OEP_EIXO'
    end
    object SQLC_ReceitaRelPR_OEP_DNP: TFMTBCDField
      FieldName = 'PR_OEP_DNP'
      Precision = 15
      Size = 2
    end
    object SQLC_ReceitaRelPR_OEP_ALT: TStringField
      FieldName = 'PR_OEP_ALT'
      Size = 10
    end
    object SQLC_ReceitaRelPR_OEP_AD: TFMTBCDField
      FieldName = 'PR_OEP_AD'
      Precision = 15
      Size = 2
    end
    object SQLC_ReceitaRelPR_OD_VISAO: TFMTBCDField
      FieldName = 'PR_OD_VISAO'
      Precision = 15
      Size = 2
    end
    object SQLC_ReceitaRelPR_OE_VISAO: TFMTBCDField
      FieldName = 'PR_OE_VISAO'
      Precision = 15
      Size = 2
    end
    object SQLC_ReceitaRelPR_VSNORMAL: TStringField
      FieldName = 'PR_VSNORMAL'
      Size = 1
    end
    object SQLC_ReceitaRelPR_LENTE: TStringField
      FieldName = 'PR_LENTE'
      Size = 30
    end
    object SQLC_ReceitaRelPR_ARMACAO: TStringField
      FieldName = 'PR_ARMACAO'
    end
    object SQLC_ReceitaRelPR_MED: TStringField
      FieldName = 'PR_MED'
      Size = 30
    end
    object SQLC_ReceitaRelPR_TRAT: TStringField
      FieldName = 'PR_TRAT'
      Size = 10
    end
    object SQLC_ReceitaRelPR_DATA: TDateField
      FieldName = 'PR_DATA'
    end
    object SQLC_ReceitaRelPR_TPLENTE: TStringField
      FieldName = 'PR_TPLENTE'
      Size = 1
    end
    object SQLC_ReceitaRelPR_DATACRIACAO: TSQLTimeStampField
      FieldName = 'PR_DATACRIACAO'
      Required = True
    end
    object SQLC_ReceitaRelPES_NOME: TStringField
      FieldName = 'PES_NOME'
      Required = True
      Size = 60
    end
    object SQLC_ReceitaRelPES_ENDERECO: TStringField
      FieldName = 'PES_ENDERECO'
      Size = 60
    end
    object SQLC_ReceitaRelPES_BAIRRO: TStringField
      FieldName = 'PES_BAIRRO'
      Size = 40
    end
    object SQLC_ReceitaRelPES_ESTADO: TStringField
      FieldName = 'PES_ESTADO'
      Required = True
      Size = 2
    end
    object SQLC_ReceitaRelCID_DESCRI: TStringField
      FieldName = 'CID_DESCRI'
      Required = True
      Size = 40
    end
    object SQLC_ReceitaRelPES_FONE: TStringField
      FieldName = 'PES_FONE'
      Size = 30
    end
    object SQLC_ReceitaRelPR_OBSERVACOES: TMemoField
      FieldName = 'PR_OBSERVACOES'
      BlobType = ftMemo
      Size = 1
    end
    object SQLC_ReceitaRelPR_EMPRESA: TIntegerField
      FieldName = 'PR_EMPRESA'
      Required = True
    end
    object SQLC_ReceitaRelEMP_CODIGO: TSmallintField
      FieldName = 'EMP_CODIGO'
      Required = True
    end
    object SQLC_ReceitaRelEMP_FANTAS: TStringField
      FieldName = 'EMP_FANTAS'
      Required = True
      Size = 60
    end
    object SQLC_ReceitaRelEMP_ENDERE: TStringField
      FieldName = 'EMP_ENDERE'
      Size = 60
    end
    object SQLC_ReceitaRelEMP_BAIRRO: TStringField
      FieldName = 'EMP_BAIRRO'
      Size = 40
    end
    object SQLC_ReceitaRelEM_CIDADE: TStringField
      FieldName = 'EM_CIDADE'
      Required = True
      Size = 40
    end
    object SQLC_ReceitaRelEMP_ESTCOD: TStringField
      FieldName = 'EMP_ESTCOD'
      Required = True
      Size = 2
    end
    object SQLC_ReceitaRelEMP_FONE: TStringField
      FieldName = 'EMP_FONE'
      Size = 30
    end
    object SQLC_ReceitaRelEMP_EMAIL: TStringField
      FieldName = 'EMP_EMAIL'
      Size = 60
    end
    object SQLC_ReceitaRelEMP_CNPJ: TStringField
      FieldName = 'EMP_CNPJ'
      Size = 18
    end
  end
end
